(operate-on-rectangle): If we overshoot when looking for endcol, back up.

diff --git a/lisp/rect.el b/lisp/rect.el
index d8e742ce6a1b078f110ab3c56a1ca2fc3ed3c475..2904f94687a04634c9e2c112bd6971a7d2e42f5f 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -60,6 +60,10 @@ Point is at the end of the segment of this line within the rectangle."
         (setq begextra (- (current-column) startcol))
         (setq startpos (point))
         (move-to-column endcol coerce-tabs)
+        ;; If we overshot, move back one character
+        ;; so that endextra will be positive.
+        (if (and (not coerce-tabs) (> (current-column) endcol))
+            (backward-char 1))
         (setq endextra (- endcol (current-column)))
         (if (< begextra 0)
             (setq endextra (+ endextra begextra)